COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Simulate tenex io routines with sail subroutines and macros
C00003 ENDMK
C⊗;
COMMENT Simulate tenex io routines with sail subroutines and macros;

procedure swdptr(integer chan,wordno);
begin
	integer i,temp;
	useti(chan,wordno/'200+1);
	for i←0 step 1 while i< ('177 land wordno) do
		wordin(chan);
end;


integer procedure openfile(string name,options);
begin
	integer chan;
	integer count,brchar,eof,flag;
	comment Should do something to look at option flags of "options";
	chan←getchan;
	open(chan,"DSK",'10,4,4,count,brchar,eof);
	lookup(chan,name,flag);
	return(chan);
end;

boolean procedure cfile(integer chan);
begin
	close(chan);
	return(true);
end;

define intty = <inchwl>;